<!--#include file="base.asp"-->
<!--#include file="incFile.asp"-->
<title>Yachts for sale , Bristol, McKinna, Fantasy, Marine Trading, Beneteau </title>
<%
	Dim objXMLHTTP, objXML
	Dim strXML, strURL
	
	Set objXMLHTTP = Server.CreateObject("Msxml2.SERVERXMLHTTP.4.0")
	
	strURL = base & "/t_server/vessel_list.asp?" & Request.QueryString
	If Len(Request.QueryString) > 0 Then
		If (InStr(strURL,"r_addr") = 0) Then
			strURL = strURL & "&r_addr=" & CStr(Request.SERVERVARIABLES("REMOTE_ADDR")) & "&server=" & CStr(Request.SERVERVARIABLES("SERVER_NAME")) & Replace(CStr(Request.SERVERVARIABLES("URL")),"global_search.asp","")
		End If
		strURL = Replace(strURL,"&no_menu=1","")
		strURL = strURL & "unique=" & Server.URLEncode(CStr(Now)) & "&no_menu=1&scid="&strCompaniesId&"&slid="&strLoginsId
		strURL = strURL & "&source_xml"
	Else
		If (InStr(strURL,"r_addr") = 0) Then
			strURL = strURL & "r_addr=" & CStr(Request.SERVERVARIABLES("REMOTE_ADDR")) & "&server=" & CStr(Request.SERVERVARIABLES("SERVER_NAME")) & Replace(CStr(Request.SERVERVARIABLES("URL")),"global_search.asp","") & "&"
		End If
		strURL = Replace(strURL,"&no_menu=1","")
		strURL = strURL & "unique=" & Server.URLEncode(CStr(Now)) & "&no_menu=1&scid="&strCompaniesId&"&slid="&strLoginsId
		strURL = strURL & "&source_xml"
	End If
	
	objXMLHTTP.Open "GET", strURL, False
	Call objXMLHTTP.Send("")
	Set objXML = objXMLHTTP.ResponseXML
'Response.Write("<a href=""" & strURL & """ >View XML</a><br>")
	Call XMLToHTMLOutput(objXML, "xsl/vessel_list.xsl")
	
	Set objXMLHTTP = Nothing
	Set objXML = Nothing
%>
